perm filename FOO.ALP[HAL,HE]1 blob sn#239555 filedate 1976-10-01 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	36
		;$B1.B
	40
		;$B1.A
	42
	0
	XJUMP
	L1
		;Condition monitor checker
L2:	XCMSKED
	144
		;first argument
	XGTVAL
		;$B1.A
	42
		;second argument
	XGTVAL
		;$B1.B
	40
	XSLE
	XJUMPC
	L2
	XCMTRIG
		;Stop
	XSTOP
	4
	XJUMP
	L2
		;Create condition monitor
L1:	XCMMAK
	44
	0
	L2
		;Move
	XMOVE
	L3
	4
		;Block end cleanup
	XCMDEST
	44
	0
	XKVAR
		;
	36
		;$B1.B
	40
		;$B1.A
	42
	0
		;End of BLOCK
	XENDP
		;End of program